home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 36 / PC Actual CD 36.iso / demos / RayDream / STUDIO.Z / RIFFPLUG.RSR / STR#_5.txt < prev    next >
Encoding:
Text File  |  1996-11-03  |  2.7 KB  |  270 lines
  1. %%DocumentData: Binary
  2.  
  3.  
  4. %%DocumentData: Clean8Bit
  5.  
  6.  
  7. %%Extensions: CMYK
  8.  
  9.  
  10. dopic
  11.  
  12.  
  13. save
  14. restore
  15.  
  16.  
  17. %%EndComments
  18.  
  19.  
  20. %%%%BlackPlate:%s
  21.  
  22.  
  23. %%%%YellowPlate:%s
  24.  
  25.  
  26. %%%%MagentaPlate:%s
  27.  
  28.  
  29. %%%%CyanPlate:%s
  30.  
  31.  
  32. %%DocumentProcessColors: Black
  33.  
  34.  
  35. %%DocumentProcessColors: Yellow
  36.  
  37.  
  38. %%DocumentProcessColors: Magenta
  39.  
  40.  
  41. %%DocumentProcessColors: Cyan
  42.  
  43.  
  44. %%DocumentProcessColors: Cyan Magenta Yellow Black
  45.  
  46.  
  47. %%SuppressDotGainCompensation
  48.  
  49.  
  50. %%%%BoundingBox: 0 0 %d %d
  51.  
  52.  
  53. %%%%CreationDate: %s %s
  54.  
  55.  
  56. %%%%Title: %s
  57.  
  58.  
  59. %%Creator: Painter Version 4.0.1
  60.  
  61.  
  62. %!PS-Adobe-3.0 EPSF-3.0
  63.  
  64.  
  65. grestore end
  66.  
  67.  
  68. 0 %d translate 1 -1 scale %f %f scale %d %d translate
  69.  
  70.  
  71. pixwidth pixheight scale
  72.  
  73.  
  74.   {currentfile picstr readstring pop} false 3 colorimage
  75.  
  76.  
  77.   {currentfile picstr readhexstring pop} false 3 colorimage
  78.  
  79.  
  80.   {currentfile picstr readhexstring pop} false 4 colorimage
  81.  
  82.  
  83.   {currentfile picstr readhexstring pop} image
  84.  
  85.  
  86. gsave 0 %d translate 1 -1 scale
  87.  
  88.  
  89. (Painter file: %s: %s %s: %s plate) show
  90.  
  91.  
  92. AM
  93.  
  94. PM
  95.  
  96. 0 setgray %f %f moveto
  97.  
  98.  
  99. 1 setgray %f %f moveto (K50) show
  100.  
  101.  
  102. 0 setgray %f %f moveto (C45 M55 Y65) show
  103.  
  104.  
  105. 1 setgray %f %f moveto (C50 M50 Y60) show
  106.  
  107.  
  108. 0 setgray %f %f moveto (C50 M50 Y50) show
  109.  
  110.  
  111. black
  112.  
  113. yellow
  114.  
  115. magenta
  116.  
  117. cyan
  118.  
  119. (K) show
  120.  
  121.  
  122. (Y) show
  123.  
  124.  
  125. (M) show
  126.  
  127.  
  128. (C) show
  129.  
  130.  
  131. 1 setgray %f %f moveto
  132.  
  133.  
  134. % see the C code for font scaling
  135.  
  136. 0 setgray newpath %f %f moveto lbox
  137.  
  138.  
  139.   bwx 6 mul neg 0 rlineto closepath fill } def
  140.  
  141.  
  142. /lbox { bwx 6 mul 0 rlineto 0 bhx neg rlineto
  143.  
  144.  
  145. /picstr width %d mul string def
  146.  
  147.  
  148. } def
  149.  
  150.  
  151. /sproc%c {
  152.  
  153. 1 fact div 1 fact div scale %f neg %f neg translate 0 %d translate 1 -1 scale
  154.  
  155.  
  156. %f setgray newpath %f %f moveto lbox
  157.  
  158.  
  159. %f %f /sproc%c load setscreen
  160.  
  161.  
  162. %f %f /sproc%c load %f %f /sproc load setcolorscreen
  163.  
  164.  
  165. %f %f /sproc%c load %f %f /sproc%c load
  166.  
  167.  
  168. /dopic
  169. {  width height 8
  170.   [width 0 0 height neg 0 height]
  171.  
  172.  
  173. %d %d translate %f %f scale 1 -1 scale 0 %d translate
  174.  
  175.  
  176. 0 %d translate 1 -1 scale %f %f scale %d %d translate
  177.  
  178.  
  179. {} {} {} {} setcolortransfer
  180.  
  181.  
  182. /picstr %d string def
  183.  
  184.  
  185. /pixheight %d def
  186.  
  187.  
  188. /pixwidth %d def
  189.  
  190.  
  191. /height %d def
  192.  
  193.  
  194. /width %d def
  195.  
  196.  
  197. gsave
  198.  
  199.  
  200. grestore
  201.  
  202.  
  203. gsave 1 -1 scale 0 %d neg translate %f %f translate fact fact scale
  204.  
  205.  
  206. dopic
  207.  
  208.  
  209. gsave %d %d translate width fact mul height fact mul scale
  210.  
  211.  
  212. } def
  213.  
  214.  
  215. {currentfile picstr readstring pop} image
  216.  
  217.  
  218. {currentfile picstr readstring pop} false 4 colorimage
  219.  
  220.  
  221. width height 8 [width 0 0 height neg 0 height]
  222.  
  223.  
  224. {} settransfer
  225.  
  226.  
  227. {} {} {} {} setcolortransfer
  228.  
  229.  
  230. /dopic {
  231.  
  232.  
  233. /picstr width string def
  234.  
  235.  
  236. /width %d def /height %d def /fact %f def
  237.  
  238.  
  239. 40 dict begin gsave
  240.  
  241.  
  242. 1 setgray 
  243.  
  244. 0 setgray 
  245.  
  246. 0.5 setlinewidth
  247.  
  248.  
  249. %f setgray newpath %f %f moveto dobox
  250.  
  251.  
  252. bwx neg 0 rlineto closepath fill} def
  253.  
  254.  
  255. /dobox {bwx 0 rlineto 0 bhx neg rlineto
  256.  
  257.  
  258. /bhx %f def
  259.  
  260.  
  261. /bwx %f def
  262.  
  263.  
  264. newpath %f %f %f 0 360 arc closepath fill
  265.  
  266.  
  267. newpath %f %f moveto %f %f lineto stroke
  268.  
  269.  
  270.